home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tafltggr.lha / examples / logoff.trans < prev    next >
Text File  |  1995-07-30  |  524b  |  25 lines
  1. /* Ergänzung zum normalen LogOff-Script, damit TAFileTagger einwandfrei
  2.    läuft. */
  3. options results
  4.  
  5. /* What BBSline was this session on? */
  6. systeminfo '8'
  7. line = result
  8.  
  9.  
  10. /* Die nachfolgenden Zeilen sind zu ergaenzen falls mit TAFileIndex
  11.    gearbeitet wird. Sie schauen nach ob ein Upload geschehen ist. */
  12.  
  13. docheck = 0
  14. Upload = "env:TAUpload"
  15.  
  16.   if open(check, Upload, r) then docheck = readln(check)
  17.   close(check)
  18.  
  19. IF docheck then
  20.   ADDRESS COMMAND 'run execute s:UpdateTAIndex'
  21.  
  22. ADDRESS COMMAND 'SETENV TAUpload 0'
  23.  
  24.  
  25.